home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / MacTools / HyperCard BBS / Hyper House / card_7913.txt < prev    next >
Encoding:
Text File  |  1988-05-09  |  3.5 KB  |  176 lines
  1. -- card: 7913 from stack: in
  2. -- bmap block id: 9735
  3. -- flags: 0000
  4. -- background id: 2607
  5. -- name: *** Main Menu ***
  6. ----- HyperTalk script -----
  7. on initCard
  8.   global onLine
  9.   if onLine then
  10.     if "autoWrapOn" is in SPortConfiguration() then
  11.       set name of button id 7 to "Auto-wrap off"
  12.     else set name of button id 7 to "Auto-wrap on"
  13.   end if
  14.   pass initCard
  15. end initCard
  16.  
  17.  
  18.  
  19. -- part 2 (button)
  20. -- low flags: 00
  21. -- high flags: 8000
  22. -- rect: left=48 top=13 right=342 bottom=147
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 902 / 902
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: General messages
  31. ----- HyperTalk script -----
  32. on doIt
  33.   push card
  34.   visual effect iris open fast
  35.   go to stack "General Messages"
  36. end doIt
  37.  
  38.  
  39.  
  40.  
  41. -- part 3 (button)
  42. -- low flags: 00
  43. -- high flags: 8000
  44. -- rect: left=251 top=80 right=243 bottom=307
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 27009 / 27009
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Technical
  53. ----- HyperTalk script -----
  54. on doIt
  55.   push card
  56.   visual effect iris open fast
  57.   go to stack "Technical"
  58. end doIt
  59.  
  60.  
  61.  
  62.  
  63. -- part 5 (button)
  64. -- low flags: 00
  65. -- high flags: 8000
  66. -- rect: left=367 top=23 right=342 bottom=512
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 4895 / 4895
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: HyperCard
  75. ----- HyperTalk script -----
  76. on doIt
  77.   push card
  78.   visual effect iris open fast
  79.   go to stack "HyperCard disc."
  80. end doIt
  81.  
  82.  
  83.  
  84.  
  85. -- part 4 (button)
  86. -- low flags: 00
  87. -- high flags: 8000
  88. -- rect: left=162 top=75 right=197 bottom=252
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 32488 / 32488
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: What's cookin'
  97. ----- HyperTalk script -----
  98. on doIt
  99.   push card
  100.   visual effect iris open fast
  101.   go to stack "What's cooking"
  102. end doIt
  103.  
  104.  
  105.  
  106.  
  107. -- part 1 (button)
  108. -- low flags: 00
  109. -- high flags: 8000
  110. -- rect: left=162 top=289 right=342 bottom=262
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 6724 / 6724
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Logoff
  119. ----- HyperTalk script -----
  120. on doIt
  121.   global onLine
  122.   logoffUser
  123.   if onLine then sendString "Toodles..." & return & return
  124.   visual effect iris close fast
  125.   pop card
  126. end doIt
  127.  
  128.  
  129.  
  130. -- part 7 (button)
  131. -- low flags: 00
  132. -- high flags: A003
  133. -- rect: left=314 top=286 right=308 bottom=447
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Auto-wrap off
  142. ----- HyperTalk script -----
  143. on doIt
  144.   global onLine
  145.   if onLine then
  146.     if "autoWrapOn" is in SPortConfiguration() then
  147.       set name of the target to "Auto-wrap on"
  148.       configureSPort autoWrapOff
  149.     else
  150.       set name of the target to "Auto-wrap off"
  151.       configureSPort autoWrapOn
  152.     end if
  153.   end if
  154. end doIt
  155.  
  156.  
  157.  
  158. -- part 6 (button)
  159. -- low flags: 00
  160. -- high flags: 0000
  161. -- rect: left=4 top=302 right=338 bottom=41
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 23078 / 23078
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: ?
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   visual effect iris open fast
  173.   go to "User Help"
  174. end mouseUp
  175.  
  176.